#!/usr/bin/perl
#
$until_loop=5;

# Definition of perl until loop
until ($until_loop==0) {
       print "until loop value is:".$until_loop."\n";
       $until_loop--;
       } 